home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / trustme.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-01-03  |  3.4 KB  |  79 lines
  1. 4  '
  2. 5  ' Drawn by Cory Bruening     10/19/84
  3. 6  ' Please do not modify this!  My eyes went buggy trying to draw it!
  4. 7  ' ~~~~~~ Look for another this Christmas!
  5. 8  '
  6. 10  SCREEN 1:CLS:C=2
  7. 20  READ X,Y:Y=Y-10:PSET (X,Y),2
  8. 30  READ X,Y
  9. 40  IF X=999 THEN 20
  10. 50  IF X=9999 THEN 650
  11. 60  X=X-50:LINE -(X,Y-10),C
  12. 70  GOTO 30
  13. 80  DATA 140,70,191,70,192,69,193,68,193,67,195,67
  14. 90  DATA 195,66,197,63,200,60,203,57,205,56,207,56
  15. 100  DATA 210,57,213,58,215,60,217,65,216,70,217,73
  16. 110  DATA 217,75,216,77,215,78,213,78,212,77,211,77
  17. 120  DATA 210,76,210,75,213,75,212,73,211,73
  18. 130  DATA 209,73,207,75,208,77,210,80,213,85,214,87
  19. 140  DATA 215,90,217,92,220,95,221,98,222,100,221,103
  20. 150  DATA 220,105,218,108,217,110,210,112,205,115
  21. 160  DATA 204,117,203,120,200,123,198,125,199,130
  22. 170  DATA 999,999,170,105,217,100,215,97,214,95,210,90
  23. 180  DATA 208,87,205,86,202,85,197,83,195,83,194,84
  24. 190  DATA 190,85,185,87,183,90,180,93,175,95,173,97
  25. 200  DATA 170,100,167,102,165,105
  26. 210  DATA 173,114,175,115,180,117,183,118,185,120
  27. 220  DATA 187,123,190,125,193,130,193,132,999,999
  28. 230  DATA 115,105,167,100,168,95,167,95,170,93
  29. 240  DATA 173,90,175,85,177,82,180,79,183,75,185,73
  30. 250  DATA 187,71,190,70,999,999,135,120,183,123
  31. 260  DATA 180,125,175,127,173,128,172,132,171,132
  32. 270  DATA 170,135,171,140,172,143,171,145,170,150
  33. 280  DATA 169,155,168,160,167,165,168,170,170,175
  34. 290  DATA 171,180,173,183,175,184,177,182,180,178
  35. 300  DATA 183,177,185,175,190,170,193,168,194,165
  36. 310  DATA 195,160,194,155,193,150,192,148,999,999
  37. 320  DATA 144,165,190,166,187,165,183,163,180,160
  38. 330  DATA 178,155,179,150,182,147,177,149,176,152
  39. 340  DATA 175,155,173,157,172,163,999,999,120,180
  40. 350  DATA 172,185,171,190,172,195,173,199,999,999
  41. 360  DATA 155,120,210,123,215,125,218,127,219,130
  42. 370  DATA 220,135,219,140,218,145,219,150,217,155
  43. 380  DATA 217,160,216,165,215,170,214,173,213,175
  44. 390  DATA 214,176,215,180,213,181,212,183,211,184
  45. 400  DATA 208,182,205,180,203,178,200,175,198,170
  46. 410  DATA 197,165,195,160,195,155,197,150,200,148
  47. 420  DATA 999,999,147,165,201,165,206,164,207,162
  48. 430  DATA 208,160,210,155,209,153,208,150,206,148
  49. 440  DATA 211,150,215,155,215,156,999,999,135,90
  50. 450  DATA 187,90,190,94,188,95,185,90,999,999
  51. 460  DATA 138,95,185,93,180,92,182,93,182,95
  52. 470  DATA 183,97,185,98,187,97,188,95,999,999
  53. 480  DATA 150,95,205,90,207,92,202,95,200,95
  54. 490  DATA 205,94,207,95,205,94,206,95,203,98
  55. 500  DATA 196,94,197,93,198,92,195,95,999,999
  56. 510  DATA 132,147,185,145,186,143,185,145,182,145
  57. 520  DATA 181,142,182,140,181,137,185,135,185,130
  58. 530  DATA 187,132,190,133,190,135,193,133,195,134
  59. 540  DATA 195,137,193,138,191,139,193,138,193,145
  60. 550  DATA 190,145,189,150,999,999
  61. 560  DATA 156,148,209,146,210,143,208,139,207,135
  62. 570  DATA 206,134,205,135,204,132,202,134,202,134
  63. 580  DATA 200,137,195,140,196,142,200,140,201,138
  64. 590  DATA 999,999,150,148,197,145,198,142,999,999
  65. 600  DATA 162,184,215,190,213,195,217,199,999,999
  66. 610  DATA 145,165,194,173,196,188,195,199,999,999
  67. 620  DATA 123,199,170,204,167,205,164,208,162,209
  68. 630  DATA 999,999,167,199,218,204,220,205,224,208
  69. 640  DATA 226,209,162,209,9999,9999
  70. 650  LINE (135,84)-(135,86),3:LINE (153,85)-(153,86),3:LINE (133,99)-(131,97),3:LINE -(130,96):LINE -(130,98):LINE (148,110)-(147,115),2:LINE -(145,116),2:LINE -(143,115),2:LINE -(140,114),2
  71. 660  LINE (149,120)-(149,127),2:PSET (154,110),2:LINE (205,42)-(185,60):LINE -(195,40)
  72. 670  CIRCLE (143,96),15,2,3,,5/18:CIRCLE (230,28),55,3,,4,5/18:CIRCLE (230,28),55,3,4.2,,5/18
  73. 680  CIRCLE (100,50),50,2,,5.1:PAINT (100,50),3,2
  74. 690  PAINT (155,75),1,2:PAINT(137,82),2,2:PAINT (154,82),2,2:PAINT (140,120),1,2:PAINT (160,120),1,2:PAINT (145,154),1,2
  75. 700  LOCATE 4,26:PRINT "Trust me."
  76. 710  A$=INKEY$
  77. 720  IF A$="" THEN 710
  78. 730  LOCATE 1,1:END
  79.